unit untListagemPadrao;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, Grids, DBGrids, FMTBcd, SqlExpr;

type
  TfrmListagemPadrao = class(TForm)
    pnltop: TPanel;
    btnInserir: TSpeedButton;
    btnAlterar: TSpeedButton;
    btnExcluir: TSpeedButton;
    btnSair: TSpeedButton;
    pnlbotton: TPanel;
    edtpesquisar: TEdit;
    lblpesquisar: TLabel;
    grdlistagem: TDBGrid;
    dslistagem: TDataSource;
    sdsComando: TSQLDataSet;
    procedure btnSairClick(Sender: TObject);
    procedure habilitabotoes();
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dslistagemDataChange(Sender: TObject; Field: TField);
    procedure edtpesquisarChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmListagemPadrao: TfrmListagemPadrao;

implementation

uses untDM, untFuncao;

{$R *.dfm}

procedure TfrmListagemPadrao.btnSairClick(Sender: TObject);
begin
  close;
end;

procedure TfrmListagemPadrao.habilitabotoes();
begin
  if dslistagem.DataSet.RecordCount = 0 then
  begin
    btnAlterar.Enabled := False;
    btnExcluir.Enabled := False;
  end
  else
  begin
    btnAlterar.Enabled := True;
    btnExcluir.Enabled := True;
  end;
end;

procedure TfrmListagemPadrao.FormShow(Sender: TObject);
begin
  dslistagem.DataSet.Open;
  FormataDataSet(dslistagem.DataSet);
  habilitabotoes();
end;

procedure TfrmListagemPadrao.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dslistagem.DataSet.Close;

  Action:= caFree;
end;

procedure TfrmListagemPadrao.dslistagemDataChange(Sender: TObject;
  Field: TField);
begin
  habilitabotoes();
end;

procedure TfrmListagemPadrao.edtpesquisarChange(Sender: TObject);
begin
  {DM.cds???.Locate('campo???',edtPesquisa.Text, [loCaseInsensitive,loPartialKey]);}
end;

end.
